home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / DIRECTOR / data.z / Lists Lingo.dir / Scripts_117_deleteAt aPropertyList.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  397 b   |  11 lines
  1. on mouseDown
  2.   global gDefaultPropList
  3.   doButton()
  4.   set vSetPosition to the text of member "Adding Property DeleteAt Input Field 1"
  5.   set vSetPosition to checkPosition(vSetPosition, count(gDefaultPropList))
  6.   if vSetPosition <> EMPTY then
  7.     deleteAt(gDefaultPropList, vSetPosition)
  8.     set the text of member "Adding Property DeleteAt Display Field 1" to string(gDefaultPropList)
  9.   end if
  10. end
  11.